﻿
Public Class ppc

    Private Sub readclp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles readclp.Click
        readclpClick(url)
    End Sub

    Private Sub writeclp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles writeclp.Click
        writeclpClick(shorturl)
    End Sub

    Private Sub shortit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shortit.Click
        shortitClick(url, shortform, shorturl)
    End Sub

    Private Sub quit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quit.Click
        Application.Exit()
    End Sub

    Private Sub homepage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles homepage.Click
        Process.Start(New ProcessStartInfo(homepageUrl, Nothing))
    End Sub

    Private Sub wmusclient_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        initial()
        readclp_Click(Nothing, Nothing)
    End Sub
End Class
